home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1994 June / PC Plus Super CD coverdisc Issue 93 June 1994.iso / suprdisk / button / frmhelp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-25  |  1.6 KB  |  58 lines
  1. VERSION 2.00
  2. Begin Form frmHelp 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Help"
  5.    ClientHeight    =   4155
  6.    ClientLeft      =   2865
  7.    ClientTop       =   2250
  8.    ClientWidth     =   5370
  9.    ClipControls    =   0   'False
  10.    Height          =   4845
  11.    Left            =   2805
  12.    LinkTopic       =   "Form1"
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4155
  15.    ScaleWidth      =   5370
  16.    Top             =   1620
  17.    Width           =   5490
  18.    Begin TextBox tbxHelp 
  19.       BorderStyle     =   0  'None
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "MS Sans Serif"
  23.       FontSize        =   8.25
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   3435
  27.       Left            =   300
  28.       MousePointer    =   1  'Arrow
  29.       MultiLine       =   -1  'True
  30.       ScrollBars      =   2  'Vertical
  31.       TabIndex        =   0
  32.       Text            =   "tbxHelp"
  33.       Top             =   0
  34.       Width           =   7215
  35.    End
  36.    Begin Menu mnuExit 
  37.       Caption         =   "E&xit -(Or Click the text)"
  38.    End
  39. Option Explicit
  40. Sub cmdOK_Click ()
  41.     Unload frmHelp
  42. End Sub
  43. Sub Form_Load ()
  44.     Position_Form frmHelp
  45. End Sub
  46. Sub Form_Resize ()
  47.     tbxHelp.Move tbxHelp.Left, 0, frmHelp.ScaleWidth - tbxHelp.Left, frmHelp.ScaleHeight
  48. End Sub
  49. Sub mnuExit_Click ()
  50.     Unload frmHelp
  51. End Sub
  52. Sub tbxHelp_Click ()
  53.     Unload frmHelp
  54. End Sub
  55. Sub tbxHelp_KeyPress (KeyAscii As Integer)
  56.     KeyAscii = 0
  57. End Sub
  58.